﻿⍝ Interop Demo
⍝ ⎕AVU 
)clear
)copy c:\temp\USCFN USCFN
⎕VR 'USCFN'
3 55⍴65↓⎕av
⎕AVU[97+⍳26]←9397+⍳26
3 55⍴65↓⎕av
⎕VR 'USCFN'
)copy c:\temp\USCFN USCFN
⎕VR 'USCFN'
)copy c:\temp\russian HelloWorld
HelloWorld
)copy avu Russian.⎕AVU
)copy c:\temp\russian HelloWorld
HelloWorld
)clear
3 55⍴65↓⎕av

⍝ Files
)copy avu Std.⎕AVU
)copy c:\temp\uscfn
⎕FUNTIE ⎕FNUMS
'c:\temp\interop64' ⎕FSTIE 1
'U' 1 ⎕FPROPS 1
'US' ⎕FPROPS 1
⎕FDROP 1,-/2↑⎕FSIZE 1
⎕CMD 'C:\Program Files\Dyalog\Dyalog APL 12.0 Classic\dyalog.exe' ''
⎕CMD 'C:\Program Files\Dyalog\Dyalog APL 11.0\dyalog.exe' ''
⍝ Read each component from Classic and v11 as it is created
+(⎕VR 'USCFN') ⎕FAPPEND 1
⎕FREAD 1 1
)copy avu Std.⎕AVU
⍝ do the same in Classic now - and remember Std font!
(⎕VR 'USCFN') ⎕FREPLACE 1 1
('U' 0) ⎕FPROPS 1
⍝ Untie and retie file in v11 (bug)
(⎕VR 'USCFN') ⎕FREPLACE 1 1
⎕FUNTIE 1

⍝ Public workspace AVU
)load avu
)obs
'Alt' 'Std' 'Russian',[1.5] (Alt Std Russian).(3 50⍴65↓⎕AV)
